home *** CD-ROM | disk | FTP | other *** search
Wrap
VERSION 2.00 Begin Form About BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "About the LED Custom Control VBX" ClientHeight = 4305 ClientLeft = 1650 ClientTop = 3600 ClientWidth = 8730 ForeColor = &H00000000& Height = 4710 Left = 1590 LinkTopic = "Form1" MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 4305 ScaleWidth = 8730 Top = 3255 Width = 8850 Begin Frame Frame9 BackColor = &H00C0C0C0& Caption = "Global Majic Software, Inc." FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 2670 Left = 5085 TabIndex = 1 Top = 1545 Width = 3555 Begin CommandButton Command3 Caption = "How To &Order" FontBold = -1 'True FontItalic = 0 'False FontName = "System" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 375 Left = 360 TabIndex = 2 Top = 900 Width = 2800 End Begin CommandButton Command4 Caption = "How To &Contact GMS" FontBold = -1 'True FontItalic = 0 'False FontName = "System" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 375 Left = 360 TabIndex = 3 Top = 420 Width = 2800 End Begin Image Image2 Height = 1245 Left = 300 Picture = LABOUT.FRX:0000 Top = 1320 Width = 2925 End End Begin Frame Frame6 BackColor = &H00C0C0C0& Caption = "Demos And Examples" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 2670 Left = 105 TabIndex = 4 Top = 1545 Width = 4905 Begin CommandButton Command5 Caption = "Other GMS Custom Controls" Height = 375 Left = 315 TabIndex = 5 Top = 1500 Width = 4155 End Begin CommandButton Command1 Caption = "E&xamples" FontBold = -1 'True FontItalic = 0 'False FontName = "System" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 375 Left = 2415 TabIndex = 6 Top = 570 Width = 1900 End Begin CommandButton Command2 BackColor = &H000000FF& Caption = "&Property Demos" FontBold = -1 'True FontItalic = 0 'False FontName = "System" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 375 Left = 435 TabIndex = 7 Top = 570 Width = 1900 End Begin Image VBXs Height = 480 Left = 135 Picture = LABOUT.FRX:43C6 Top = 1935 Width = 4650 End End Begin Frame Frame5 BackColor = &H00C0C0C0& Caption = "LED Custom Control VBX (Version 2.5)" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 13.5 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00C00000& Height = 1455 Left = 90 TabIndex = 0 Top = 15 Width = 8505 Begin Label Label1 AutoSize = -1 'True BackColor = &H00FFFFFF& BackStyle = 0 'Transparent Caption = "This control displays a variety of LED styles including rectangular, circular, and user supplied bitmaps. The control can display a single LED as an on/off indicator or it may be configured as an array of horizontal or vertical LEDs to indicate an array of on/off indicators (Bitwise Mode) or a gauge or linear meter (Value Mode)." FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 960 Index = 2 Left = 705 TabIndex = 8 Top = 345 Width = 7635 WordWrap = -1 'True End Begin Image Image1 Height = 480 Index = 10 Left = 135 Picture = LABOUT.FRX:6F00 Top = 360 Width = 480 End End Sub Command1_Click () examples.Show End Sub Sub Command2_Click () ledstyles.Show ledcontrol.Show End Sub Sub Command3_Click () i = Shell("WINHELP order.hlp", 1) End Sub Sub Command4_Click () Address.Show 1 End Sub Sub Command5_Click () i = Shell("WINHELP instrmlb.hlp", 1) End Sub Sub Image1_Click (index As Integer) i = Shell("WINHELP led.hlp", 1) End Sub Sub VBXs_Click () i = Shell("WINHELP instrmlb.hlp", 1) End Sub